home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n15.arc / POWEXMPL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-09  |  459b  |  25 lines
  1. {$N+,E+}
  2. PROGRAM PowerExample;
  3. USES Crt, Pow;
  4.  
  5. VAR
  6.   x, expon, base : Double;
  7.   answer : Char;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   REPEAT
  12.     Write('Enter a base: ');
  13.     ReadLn(base);
  14.     Write('Enter an exponent: ');
  15.     ReadLn(expon);
  16.  
  17.     x:=power(base,expon);
  18.  
  19.     WriteLn(base:5:4,'^',expon:5:4,' = ',x:7:4);
  20.     Write('Press Q to quit, any other key to continue');
  21.     answer := UpCase(ReadKey);
  22.     WriteLn(answer);
  23.   UNTIL answer = 'Q';
  24. END.
  25.